wideLabels <- read_excel(file.path(system.file(package="managecrownsdata"), 'labeling_file_Mbalmayo.xlsx'))
longLabels <- format_labels(wideLabels)
datatable(longLabels,
class = 'cell-border stripe',
rownames = FALSE,
width = '100%',
options = list(scrollX = TRUE))
#> Warning in instance$preRenderHook(instance): It seems your data is too big for
#> client-side DataTables. You may consider server-side processing:
#> https://rstudio.github.io/DT/server.html
plot_heatmapLabels(longLabels, Specie = 'Alstonia boonei', Genus = NULL, Family = NULL, title = NULL, na.rm = TRUE)
#> Warning: Removed 1113 rows containing missing values or values outside the scale range
#> (`geom_point()`).
